home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / amiback20ptchi.lha / ab_install next >
Encoding:
Text File  |  1995-01-24  |  3.0 KB  |  159 lines
  1. ;script to install Ami-Back
  2.  
  3. (complete 0)
  4.  
  5. ;Delete old config file.
  6. (if (exists "S:Ami-Back.config") 
  7.     (delete "S:Ami-Back.config" 
  8.         (prompt "Do you want to delete your old (incompatible) config files?")
  9.         (confirm 2)
  10.         (help "Unless you plan to continue using the old version of Ami-Back " 
  11.               "you should delete your old configuration files since they are not "
  12.               "compatible with the new version."
  13.         )
  14.     )
  15. )
  16.  
  17. ;Get directory to install Ami-Back in.
  18. (set destdir 
  19.     (askdir 
  20.         (prompt "In which drawer should Ami-Back be installed?") 
  21.         (help @askdir-help)
  22.         (default (tackon @default-dest "Ami-Back"))
  23.     )
  24. )
  25.  
  26. (set vernum (getversion))
  27. (set ver (/ vernum 65536))
  28. (set rev (- vernum (* ver 65536) ) )
  29.  
  30. ;Get version of Ami-Back that sould be installed
  31. (if (> @user-level 1)
  32.  (
  33.     (set abversion
  34.         (askchoice
  35.             (prompt "Which version of Ami-Back should be installed\n")
  36.             (choices "1.3 Version" "2.0 Version")
  37.             (default (> ver 36))
  38.             (help "The 1.3 version of Ami-Back will run under WB 1.3 or WB 2.0. "
  39.                   "The 2.0 version supports the additional features of WB 2.0 such "
  40.                   "as links and faster directory scanning."
  41.             )
  42.         )
  43.     )
  44.     
  45.     (if (> abversion 0)
  46.       (
  47.         (set ver 37)
  48.       )
  49.       (
  50.         (set ver 34)
  51.       )
  52.     )
  53.  )
  54. )
  55.  
  56. (complete 10)
  57.  
  58. ;Determine system version.
  59. (if (> ver 36)
  60.     (
  61.         (set abprog "Ami-Back:Ami-Back2.0")
  62.         (copylib 
  63.             (source "Ami-Back:Libs2.0/AmigaGuide.library")
  64.             (dest "LIBS:")
  65.             
  66.         )
  67.         (copyfiles 
  68.         
  69.             (source "Ami-Back:S")
  70.             (dest "S:")
  71.             (all)
  72.         )
  73.         (set poffset 217844)
  74.         (set abversion 1)
  75.     )
  76.     (
  77.         (set abprog "Ami-Back:Ami-Back1.3")
  78.         (copylib 
  79.             (source "Ami-Back:Libs1.3/gadtools13.library")
  80.             (dest "LIBS:")
  81.         )
  82.         (copylib 
  83.             (source "Ami-Back:Libs1.3/asl13.library")
  84.             (dest "LIBS:")
  85.         )
  86.         (set poffset 218542)
  87.         (set abversion 0)
  88.     )
  89. )
  90.  
  91. (complete 40)
  92.  
  93. ;Copy program files to destination.
  94. (copyfiles
  95.     (source abprog)
  96.     (dest destdir)
  97.     (all)
  98. )
  99.  
  100. (complete 90)
  101.  
  102. ;Personalize Ami-Back.
  103.  
  104. (set tryperson 1)
  105. (set @user-level 1)
  106.  
  107. (if (> abversion 0)
  108.     (
  109.     (run "Ami-Back:C/Person"
  110.         ('\"%s\"'            ;Need to quote filename argument.
  111.             (tackon destdir "Ami-Back20")
  112.         )    
  113.  
  114.         ('\"%s\"'            ;Need to quote name argument.
  115.             (askstring 
  116.                 (prompt "What is your name?") 
  117.                 (help "You must enter your name or company name so that your copy of Ami-Back can be personalized.")
  118.             )
  119.         )
  120.         
  121.         (askstring
  122.             (prompt "What is your serial number?") 
  123.             (help "You can find your serial number on the front of you Ami-Back master disk.")
  124.         )
  125.         
  126.         poffset
  127.     )
  128.     )
  129.     
  130.     (
  131.     (run "Ami-Back:C/Person"
  132.         ('\"%s\"'            ;Need to quote filename argument.
  133.             (tackon destdir "Ami-Back13")
  134.         )    
  135.  
  136.         ('\"%s\"'            ;Need to quote name argument.
  137.             (askstring 
  138.                 (prompt "What is your name?") 
  139.                 (help "You must enter your name or company name so that your copy of Ami-Back can be personalized.")
  140.             )
  141.         )
  142.         
  143.         (askstring
  144.             (prompt "What is your serial number?") 
  145.             (help "You can find your serial number on the front of you Ami-Back master disk.")
  146.         )
  147.         
  148.         poffset
  149.     )
  150.     )
  151. )
  152.  
  153. ;Correct @default-dest so that final information is correct.
  154. (set @default-dest destdir)
  155.  
  156. (complete 100)
  157.  
  158. (exit)
  159.